home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol153 / chsong.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-12-16  |  3.5 KB  |  97 lines
  1. 10  V$="B:CHSONG.bas 11/29/82    Shirley"
  2. 20  ON ERROR GOTO 40
  3. 30  GOTO 60
  4. 40  PRINT "ERR ERL =";ERR;ERL
  5. 50  END
  6. 60  '----------------------------------------------------
  7. 70  GOSUB 890  : GOSUB 160  ' SILENT
  8. 80  GOSUB 680  : GOSUB 160  ' NOEL
  9. 90   GOSUB 450  : GOSUB 160 ' SILVER
  10. 100  GOSUB 790  : GOSUB 160  ' JOY
  11. 110  GOSUB 570  : GOSUB 160  ' DECK
  12. 120  GOSUB 270  : GOSUB 160 ' JINGLE
  13. 130  GOSUB 370              ' MERRY
  14. 140  END
  15. 150  '----------------------------------------------------
  16. 160  FOR IWAIT=1 TO 3500 : WWWW=1 : NEXT IWAIT
  17. 170  RETURN
  18. 180  '----------------------------------------------------
  19. 190  CLS
  20. 200  FOR I= 1 TO 15 : LOCATE I,(40-I) : PRINT STRING$(2*I,CHR$(15)) : NEXT I
  21. 210  LOCATE 10,40 : PRINT STRING$(3,CHR$(1))
  22. 220  FOR I= 1 TO 4 : LOCATE 15+I,36 : PRINT STRING$(8,CHR$(15)) : NEXT I
  23. 230  PRINT S$
  24. 240  PRINT " BY SHIRLEY GASICH"
  25. 250  RETURN
  26. 260  '----------------------------------------------------
  27. 270  S$="WE WISH YOU A MERRY CHRISTMAS" : GOSUB 190
  28. 280  PLAY "MB T200 "
  29. 290  PLAY "O3 L4 CF L8 FGFE L4 DDDG L8 GAGF"
  30. 300  PLAY "L4 ECCA L8 AB-AG L4 FD L8 CC L4 DGE"
  31. 310  PLAY "l2 F L4 CFFF L2 E L4 EFED L2 C L4 CAGF"
  32. 320  PLAY "O4 L4 C O3 L4 C L8 CC L4 DGE L2 F L4 CF"
  33. 330  PLAY "L8 FGFE L4 DDDG L8 GAGF L4 ECCA L8 AB-AG"
  34. 340  PLAY "L4 FD L8 CC L4 DGE L2 F"
  35. 350  RETURN
  36. 360  '----------------------------------------------------
  37. 370  S$="JINGLE BELLS" : GOSUB 190
  38. 380  PLAY "MB T210 "
  39. 390  PLAY "O3 L4 EEE P4 EEE P4 EGCD L1 E"
  40. 400  PLAY "L4 FFFFFEE L8 EE L4 EDDE L2 D L4 G P4"
  41. 410  PLAY "O3 L4 EEE P4 EEE P4 EGCD L1 E"
  42. 420  PLAY "L4 FFFFFEE L8 EE L4 GGFD L4 C L1"
  43. 430  RETURN
  44. 440  '----------------------------------------------------
  45. 450  S$="SILVER BELLS" : GOSUB 190
  46. 460  PLAY "MB T150 "
  47. 470  PLAY "O3 L8 B-G L4 FD L8 B-G L4 FD O4 L8 DC"
  48. 480  PLAY "O3 L4 B-GG L2 G O4 L8 C O3 L8 B- L4 AFEE-F."
  49. 490  PLAY "L8 E- L4 E- L2 D L8 B-G L4 FD L8 B-G"
  50. 500  PLAY "L4 FD O4 L8 DC O3 L4 B-GG L2 G O4 L8 C"
  51. 510  PLAY "O3 L8 B- L4 AFEE-F O4 L4 C O3 L2 B-. L8 DE-"
  52. 520  PLAY "O3 L2 F L8 GA L2 B- L4 AAB- O4 L4 C O3 L4 B-AB-"
  53. 530  PLAY "L2 F L8 DE- L2 F L8 GA L2 B- "
  54. 540  PLAY "L4 AAB- O4 L4 C O3 L4 B-A L2 B-."
  55. 550  RETURN
  56. 560  '----------------------------------------------------
  57. 570  S$="DECK THE HALLS" : GOSUB 190
  58. 580  PLAY "MB T250"
  59. 590  PLAY "O3 L2 D. L4 C O2 L2 BAGABG L4 AB O3 L4 C"
  60. 600  PLAY "O2 L4 A L2 B. P4 L4 A L2 GF+G. P4 O3 D."
  61. 610  PLAY "L4 C O2 L2 BAGABG L4 AB O3 L4 C O2 L4 A "
  62. 620  PLAY "L2 B. P4 L4 A L2 GF+G. P4 A. L4 B O3 L2 C"
  63. 630  PLAY "O2 AB. O3 L4 C L2 D O2 A L4 B O3 C L2 D L4 EF+"
  64. 640  PLAY "L2 GF+ED. P4 D. L4 C O2 L2 BAGABG L4 AB O3 C O2 A"
  65. 650  PLAY "L2 B. P4 L4 A L2 GF+ L1 G"
  66. 660  RETURN
  67. 670  '----------------------------------------------------
  68. 680  S$="NOEL" : GOSUB 190
  69. 690  PLAY "MB T100"
  70. 700  PLAY "O3 L8 ED L4 C. L8 DEF L2 G L8 AB O4 L4 C"
  71. 710  PLAY "O3 BA L2 G L8 AB O4 L4 C O3 BAGAB O4 C"
  72. 720  PLAY "O3 GF L2 E L8 ED L4 C. L8 DEF L2 G L8 AB"
  73. 730  PLAY "O4 L4 C O3 BA L2 G L8 AB O4 L4 C O3 BAGAB"
  74. 740  PLAY "O4 C O3 GF L2 E L8 ED L4 C. L8 DEF L2 G O4 L8 C"
  75. 750  PLAY "O3 B L2 A L4 A L2 G. O4 L4 C O3 BAGAB O4 C O3 L4 GF"
  76. 760  PLAY "L2 E"
  77. 770  RETURN
  78. 780  '----------------------------------------------------
  79. 790  S$="JOY TO THE WORLD" : GOSUB 190
  80. 800  PLAY "MB T200"
  81. 810  PLAY "O4 L2 C O3 L4 B. L8 A L2 G. L4 F L2 EDC."
  82. 820  PLAY "L4 G L2 A. L4 A L2 B. L4 B O4 L1 C L4 C"
  83. 830  PLAY "L4 C O3 BAGG. L8 F L4 E O4 CC O3 BAGG. L8 F "
  84. 840  PLAY "L4 EEEEE L8 EF L2 G. L8 FE L4 DDD L8 DE L2 F."
  85. 850  PLAY "L8 ED L4 C O4 L2 C O3 L4 AG. L8 F L4 EF L2 ED"
  86. 860  PLAY "L1 C"
  87. 870  RETURN
  88. 880  '----------------------------------------------------
  89. 890  S$="SILENT NIGHT" : GOSUB 190
  90. 900  PLAY "MB T125"
  91. 910  PLAY "O3 L4 C. L8 D L4 C O2 L2 A. O3 L4 C. L8 D"
  92. 920  PLAY "L4 C O2 L2 A. O3 G L4 G L2 E.F L4 F L2 C."
  93. 930  PLAY "D L4 DF. L8 E L4 DC. L8 D L4 C O2 L2 A. O3 D L4 DF."
  94. 940  PLAY "L8 E L4 DC. L8 D L4 C O2 L2 A. O3 G L4 GB-. L8 G"
  95. 950  PLAY "L4 E L2 F.A. L4 FC O2 A O3 C. O2 L6 B- L4 G L2 F."
  96. 960  RETURN
  97.